      COMMON /esg/ EXCITA(8,MAXLBL,2),
     &             ESGTIM_XVECS, ESGTIM_KVECS, ESGTIM_MOMAT,
     &             ESG, IPRESG, IESG, LUESG, LUESG2, ISYME
      LOGICAL ESG
